home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR02 / DCGAMES1.ZIP / NEWGAME.ZIP / BEGGAR.SCR < prev    next >
Text File  |  1993-04-01  |  845b  |  32 lines
  1. !
  2. ! Default Beggar script..
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6. ! Pending Enhancements
  7. !
  8. ! - This script has no voices.  For an example of voices, look at
  9. !   MERCHANT.SCR and HEALER.SCR
  10. !   
  11.  
  12. !------------------------------------------------------------------------!
  13. :@TALK ! Talk to the character !
  14. !------------------------------------------------------------------------!
  15.  
  16. ! First line of the text block is the greeting..
  17.   writeln( s1 );
  18.  
  19.   L1 = select( "Give Money", "Leave" );
  20.   if L1 = 0 then
  21.     readtext( npc.text, random(15)+2 ); ! display one line (2-16) !
  22.   else
  23.     writeln( "Thanks for nothing.." );
  24.     if( group.gold > 50 ) then
  25.       dec( group.gold, random(50) );
  26.     else
  27.       dec( group.gold, group.gold );
  28.     endif;
  29.     writeln( "(the beggar bumps into you as you walk away..)" );
  30.   endif;
  31.   STOP;
  32.